home *** CD-ROM | disk | FTP | other *** search
/ Aminet 4 / Aminet 4 - November 1994.iso / aminet / comm / term / amitel110.lha / AmiTEL / AmiTEL.install < prev    next >
Text File  |  1994-07-18  |  5KB  |  224 lines
  1. ;
  2. ; $VER: Installation d'AmiTEL v1.1 (18/07/94)
  3. ;
  4. ;    Installer script pour AmiTEL.
  5. ;
  6. ; Made by Pascal Rullier (1.1)
  7. ;         Pascal Grange  (up to 1.04)
  8.  
  9. (set @default_dest "")
  10. (set UserLevel.old @user-level)
  11.  
  12. ; ======================================================
  13. ; English Strings
  14.  
  15.  
  16. (set default_lang 4)
  17.  
  18. (set #install-msg
  19.      (cat "\nWelcome to the AmiTEL v1.1 installation d'AmiTEL\n"
  20.       "It's made with 'Installer' of Commodore for\n"
  21.       " Amiga Computers.\n\n"
  22.       "Read the documentation for\n"
  23.       "more informations on the distribution\n"
  24.        "and commercial usage of AmiTEL.\n"
  25.        "AmiTEL © 1992-1994 Pascal Grange\n"))
  26.  
  27. (set #WrongKickStart "You must be using Kickstart 2.04+ to install using this script!")
  28.  
  29. (set #CopyingReqTools "Copy of ReqTools.library in LIBS:")
  30.  
  31. (set #prompt-msg "\nChoose the drive where AmiTEL is.\n")
  32.  
  33. (set #prompt-dest-msg 
  34.      (cat "\nChoose or create a drawer where you"
  35.       " want instal AmiTEL.\n"))
  36.  
  37. (set #prompt-copy-msg "\nChoose files to install:\n")
  38.  
  39. (set #prompt-doc-msg "\nDo you  want install the AmiTEL documentation ?")
  40.  
  41. (set #prompt-file-msg "\nChoose file to install:\n")
  42.  
  43. (set #prompt-rexx-msg "\nDo you want to install ARexx examples files ?")
  44.  
  45. (set #choice-doc "AmiTEL.English.guide")
  46.  
  47. (set #Reqtoolmsg
  48.      (cat "\n"
  49.       "For working, AmiTEL needs the ReqTools.library.\n"
  50.       "\n"
  51.       "Before installing, I go to check the version of "
  52.       "ReqTools.library. If you have a recent version, I "
  53.       "will not install it.\n"))
  54.     
  55.  
  56.  
  57.       
  58.  
  59. ; Initialisation des messages.
  60.  
  61. ; ======================================================
  62. ; Chaînes françaises
  63.  
  64. (if (= @language "français")
  65.     (
  66.  
  67.      (set default_lang 8)
  68.  
  69.      (set #WrongKickStart "\nAmiTEL ne fonctionne qu'avec un KickStart >= à 2.04.")
  70.      (set #CopyingReqTools "Copie de ReqTools.library dans LIBS:")
  71.  
  72.                     ; Message de Bienvenue.
  73.      (set #install-msg
  74.       (cat "\nBienvenue sur le programme d'installation d'AmiTEL v1.1.\n"
  75.            " Cette installation est réalisée avec le programme\n"
  76.            " 'Installer' de Commodore pour les ordinateurs Amiga.\n\n"
  77.            "Pour plus d'informations sur la distribution d'AmiTEL et\n"
  78.            "l'usage commercial, voir la documentation\n"
  79.            "AmiTEL © 1994 Pascal Grange\n"))
  80.  
  81.      (set #prompt-msg "\nSélectionnez le lecteur sur lequel se trouve AmiTEL.\n")
  82.      
  83.      (set #prompt-dest-msg 
  84.      (cat "\nSélectionnez ou créez un répertoire dans lequel vous"
  85.       " voulez installer AmiTEL.\n"))
  86.      
  87.      (set #prompt-copy-msg "\nSélectionnez les fichiers à installer:\n")
  88.      
  89.      (set #prompt-doc-msg "\nVoulez vous installer la documentation d'AmiTEL ?")
  90.  
  91.      (set #prompt-file-msg "\nSelectionnez le fichier à installer:\n")
  92.  
  93.      (set #prompt-rexx-msg "\nVoulez vous installer les fichiers d'exemples ARexx ?")
  94.      
  95.      (set #choice-doc "AmiTEL.guide")
  96.  
  97.      (set #Reqtoolmsg
  98.       (cat "\n"
  99.            "Pour fonctionner, AmiTEL utilise la ReqTools.library.\n"
  100.            "\n"
  101.            "Avant de l'installer, je vais vérifier que vous n'avez "
  102.            "pas une version plus récente de ReqTools.library.\n"
  103.            "Si c'est le cas, je ne l'installerai pas.\n"))
  104.            
  105. ))
  106.  
  107. (complete 0)
  108. (message #install-msg )
  109.  
  110. ; S'assurer que l'on utilise un KickStart >= à 2.04.
  111.  
  112. (if (< (/ (getversion) 65536) 37)
  113.     (abort #WrongKickStart)
  114.   )
  115.  
  116. ; Copie du fichier exécutable et de la documentation d'AmiTEL.
  117.  
  118. (set #Path.Source
  119.      (tackon
  120.       (askdir
  121.        (prompt #prompt-msg )
  122.        (help @askdir-help)
  123.        (default (pathonly @icon))
  124.        )
  125.       ""
  126.       )
  127.      )
  128.  
  129. (set #Path.Dest
  130.      (tackon
  131.       (askdir
  132.        (prompt #prompt-dest-msg)
  133.        (help @askdir-help)
  134.        (default "SYS:")
  135.        )
  136.       ""
  137.       )
  138.      )
  139.  
  140. (copyfiles
  141.  (prompt #prompt-copy-msg)
  142.  (help @copyfiles-help)
  143.  (source #Path.Source)
  144.  (dest   #Path.Dest)
  145.  (choices "AmiTEL"
  146.       "BBTPro")
  147.  (infos)
  148.  (confirm)
  149.  )
  150.  
  151. (complete 40)
  152.  
  153. ; Copie du fichier AmiTEL.guide.
  154.  
  155. (if
  156.     (askbool
  157.      (prompt #prompt-doc-msg)
  158.      (help @askbool_help)
  159.      (default 1)
  160.      )
  161.     
  162.     (
  163.      (copyfiles
  164.       (prompt #prompt-file-msg
  165.           (help @copyfiles-help)
  166.           (source #Path.Source)
  167.           (dest   #Path.Dest)
  168.           (choices #choice-doc)
  169.           (infos)
  170.           (confirm)
  171.           )
  172.       )
  173.      )
  174.   )
  175.   
  176. (complete 60)
  177.  
  178. ; Copie des fichiers d'exemples ARexx.
  179.  
  180. (if
  181.     (askbool
  182.      (prompt #prompt-rexx-msg)
  183.      (help @askbool_help)
  184.      (default 1)
  185.      )
  186.     
  187.     (
  188.      (copyfiles
  189.       (prompt #prompt-file-msg
  190.           (help @copyfiles-help)
  191.           (source "Rexx")
  192.           (dest   "REXX:")
  193.           (pattern "#?.rexx")
  194.           (confirm)
  195.           )
  196.       )
  197.      )
  198.   )
  199. (complete 80)
  200.  
  201. ; Copie de la librairie ReqTools.
  202.  
  203. (message #Reqtoolmsg)
  204.          
  205.  
  206. (copylib
  207.  (prompt "\n" #CopyingReqTools)
  208.  (help @copylib-help)
  209.  (source "Libs/reqtools.library")
  210.  (dest "LIBS:")
  211.  (confirm)
  212.  )
  213.  
  214. (set @default_dest #Path.Dest)
  215.  
  216. (complete 100)
  217.  
  218. ; End of Program
  219.  
  220.  
  221.  
  222. (exit)
  223.  
  224.